inherited FrmModeloCarta: TFrmModeloCarta
  ActiveControl = txtCodigo
  Caption = 'Modelo de Carta'
  ClientHeight = 486
  ClientWidth = 774
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnlCima: TPanel
    Width = 774
    object Label1: TLabel
      Left = 15
      Top = 14
      Width = 33
      Height = 13
      Caption = 'C'#243'digo'
    end
    object txtCodigo: TEditEnh
      Left = 54
      Top = 12
      Width = 95
      Height = 19
      Text = '0'
      Alignment = taRightJustify
      Button.Key1 = 'F12'
      Button.Style = eebEllipsis
      OnButton1 = txtCodigoButton1
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
      OnExit = txtCodigoExit
      OnKeyDown = txtCodigoKeyDown
      EditMaskEx = '::NM::!9999999990;0;0;0'
    end
  end
  inherited pnlBaixo: TPanel
    Width = 774
    Height = 408
    object Label2: TLabel
      Left = 235
      Top = 8
      Width = 28
      Height = 13
      Caption = 'Nome'
    end
    object Label3: TLabel
      Left = 235
      Top = 48
      Width = 27
      Height = 13
      Caption = 'Texto'
    end
    object Label4: TLabel
      Left = 4
      Top = 8
      Width = 109
      Height = 13
      Caption = 'Descri'#231#227'o dos Campos'
    end
    object txtNome: TEditEnh
      Left = 235
      Top = 24
      Width = 534
      Height = 19
      CharCase = ecUpperCase
      MaxLength = 100
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
    end
    object Grid: TwwDBGrid
      Left = 4
      Top = 24
      Width = 229
      Height = 378
      ControlType.Strings = (
        'Imagem;ImageIndex;Original Size')
      Selected.Strings = (
        'Descricao'#9'32'#9'Descri'#231#227'o'#9'F')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 1
      ShowHorzScrollBar = False
      DataSource = dsMemCampos
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowCellHint]
      TabOrder = 2
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = True
      UseTFields = False
      OnTitleButtonClick = GridTitleButtonClick
      OnMouseDown = GridMouseDown
      ImageList = DMGeral.imgGrid
    end
    object txtTexto: TRichEdit
      Left = 235
      Top = 63
      Width = 534
      Height = 339
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 1
      OnDragDrop = txtTextoDragDrop
      OnDragOver = txtTextoDragOver
    end
    object txtCampos: TMemo
      Left = 312
      Top = 152
      Width = 281
      Height = 89
      Lines.Strings = (
        'DATACURTA-DATA ATUAL CURTA'
        'DATALONGA-DATA ATUAL LONGA'
        'HORACURTA-HORA ATUAL CURTA'
        'HORALONGA-HORA ATUAL LONGA'
        'DIAATUAL-DIA ATUAL '
        'MESATUAL-M'#202'S ATUAL'
        'ANOATUAL-ANO ATUAL')
      TabOrder = 3
      Visible = False
    end
  end
  inherited JvFooter1: TJvFooter
    Top = 449
    Width = 774
    inherited btnGravar: TJvFooterBtn
      Left = 454
      OnClick = btnGravarClick
    end
    inherited btnCancelar: TJvFooterBtn
      Left = 534
      OnClick = btnCancelarClick
    end
    inherited btnExcluir: TJvFooterBtn
      Left = 614
      OnClick = btnExcluirClick
    end
    inherited btnFechar: TJvFooterBtn
      Left = 692
    end
  end
  object dsMemCampos: TDataSource
    DataSet = MemCampos
    Left = 48
    Top = 113
  end
  object MemCampos: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'Descricao'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Nome'
        DataType = ftString
        Size = 30
      end>
    IndexDefs = <
      item
        Name = 'IDX'
        Fields = 'Descricao'
      end>
    IndexName = 'IDX'
    Params = <>
    StoreDefs = True
    Left = 128
    Top = 113
    Data = {
      510000009619E0BD010000001800000002000000000003000000510009446573
      63726963616F0100490000000100055749445448020002003200044E6F6D6501
      00490000000100055749445448020002001E000000}
    object MemCamposDescricao: TStringField
      FieldName = 'Descricao'
      Size = 50
    end
    object MemCamposNome: TStringField
      FieldName = 'Nome'
      Size = 30
    end
  end
end
